home *** CD-ROM | disk | FTP | other *** search
/ Gigantic Games 2 / Gigantic Games 2.iso / pc / _a_ / abitur / txt / noteconversions.mod < prev    next >
Text File  |  1994-12-23  |  936b  |  42 lines
  1. IMPLEMENTATION MODULE NoteConversions;
  2.  
  3. FROM Menus IMPORT CH; (* ist Schweizer Note *)
  4.  
  5. FROM Str IMPORT Copy;
  6. FROM RealConversions IMPORT RealToStr;
  7.  
  8. PROCEDURE NoteToString(N: REAL; Dec: BOOLEAN; VAR Str: ARRAY OF CHAR);
  9. VAR G: INTEGER;
  10.     err: BOOLEAN;
  11. BEGIN
  12.    IF NOT CH() THEN
  13.       N := 7.0 - N
  14.    END;
  15.    IF Dec THEN
  16.       RealToStr(N , Str, 4, 2, FALSE, err);
  17.       IF err THEN
  18.          Copy(Str, "Ungültige Note")
  19.       END
  20.    ELSE
  21.       N := N * 2.0 + 0.50001;
  22.       G := TRUNC(N)     ;
  23.       CASE G OF
  24.         2: Copy(Str, " 1 ");
  25.       | 3: Copy(Str, "1-2");
  26.       | 4: Copy(Str, " 2 ");
  27.       | 5: Copy(Str, "2-3");
  28.       | 6: Copy(Str, " 3 ");
  29.       | 7: Copy(Str, "3-4");
  30.       | 8: Copy(Str, " 4 ");
  31.       | 9: Copy(Str, "4-5");
  32.       |10: Copy(Str, " 5 ");
  33.       |11: Copy(Str, "5-6");
  34.       |12: Copy(Str, " 6 ");
  35.       ELSE
  36.          Copy(Str, "Ungültige Note")
  37.       END
  38.    END
  39. END NoteToString;
  40.  
  41. END NoteConversions.
  42.